/*---------------------------------------

	Stickypaper 
	Sample script 

	lbg[NAK\Ȃ
	ڍׂ help/dmsref.hlp Q


[Memo Object]
PROPERTY
 *text		displayed text	(read/write)
 *title		title text	(read/write)	(v1.1+) ^Cg
 *width,hwight	memo size	(read/write)
 *left,top	memo position	(read/write)


METHOD
 *ShowAsText(Filename)	display 'Filename' as html mode	(v1.1+) [Jɂhtmlt@C\܂B
 *ShowAsText()		change to normal mode		(v1.1+) ʂ̃[hɂǂ܂B



---------------------------------------*/

Memo.text = 'loading...';
doEvents();


u = new URL('http://www.yahoo.co.jp/');
http = new HTTP;
http.timeout = 20;

try{
	s=http.get(u.url);    //  http://yahoo.co.jp ɐڑ
	if(http.responseHeader.code=='302'){s=http.get(http.responseHeader.location);}
	if(s.match(/charset=utf-8/i)){s=s.fromUTF8toSJIS();}else{
	s=s.toSJIS();}

}finally{
	http.disconnect();
}

var outtext = u.url + "\n";

list = s.match(/<a .*?dailynews.*?>(.*?)<\/a>/igm); //gsbNX𔲂o

  for (i=0;i<list.length;i++){
	
	list[i].match(/<a .*?dailynews.*?>(.*?)<\/a>/ig);
	outtext += 'E' + RegExp.$1.substr(0,20) + "\n";

  }

Memo.text = outtext;
